home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / L.ZIP / LITBLA.LZH / WBOOT_A.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-01  |  399 b   |  19 lines
  1. program write_boot;      {Write the boot sector on drive A from boot.sec}
  2. uses dos;
  3. var
  4.   boot             :array[0..511] of byte;
  5.   r                :registers;
  6.   fin              :file;
  7. begin
  8.   assign(fin,'boot.sec');
  9.   reset(fin,512);
  10.   blockread(fin,boot,1);
  11.   close(fin);
  12.   r.ax:=$0301;
  13.   r.bx:=ofs(boot);
  14.   r.es:=seg(boot);
  15.   r.dx:=$0000;
  16.   r.cx:=$0001;
  17.   intr($13,r);
  18. end.
  19.